unit DataModule;

interface

uses
  System.SysUtils, System.Classes, Data.DB, Data.Win.ADODB;

type
  TDM = class(TDataModule)
    con: TADOConnection;
    conExcel: TADOConnection;
  private
    { Private declarations }
  public
    { Public declarations }
    function ConStr: string;
  end;

var
  DM: TDM;

implementation

{ %CLASSGROUP 'System.Classes.TPersistent' }

{$R *.dfm}

{ TDM }

function TDM.ConStr: string;
begin
  Result := 'Provider';
  Result := Result + '=';
  Result := Result + 'SQLOLEDB';
  Result := Result + '.1';
  Result := Result + ';';
  Result := Result + 'Pass';
  Result := Result + 'word';
  Result := Result + '=';
  Result := Result + 'Mrt';
  Result := Result + '_';
  Result := Result + 'mrp';
  Result := Result + '28';
  Result := Result + ';';
  Result := Result + 'Persist Security Info=True;';
  Result := Result + 'User';
  Result := Result + ' ';
  Result := Result + 'ID';
  Result := Result + '=';
  Result := Result + 'mrt';
  Result := Result + IntToStr(20);
  Result := Result + IntToStr(13);
  Result := Result + ';';
  Result := Result + 'Initial';
  Result := Result + ' ';
  Result := Result + 'Catalog';
  Result := Result + '=';
  Result := Result + 'mpd';
  Result := Result + IntToStr(2013);
  Result := Result + ';';
  Result := Result + 'Data';
  Result := Result + ' ';
  Result := Result + 'Source';
  Result := Result + '=';
  Result := Result + 'sql';
  Result := Result + IntToStr(20);
  Result := Result + IntToStr(12);
  Result := Result + '.';
  Result := Result + 'isim';
  Result := Result + 'tescil';
  Result := Result + '.';
  Result := Result + 'net';
end;


end.
